﻿
Namespace LightSwitchApplication

    Public Class ApplicationDataService

        
        Private Sub PayHistory_Inserting(entity As PayHistoryItem)
            entity.Rate = entity.EmployeeItem.DailyRate
        End Sub

        
     
        Private Sub SaveChanges_ExecuteFailed(exception As Exception)
            WritetoEventLog.WriteToLightPayEventLog(exception.Message.ToString)
        End Sub

        
    End Class

End Namespace
